home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / dayoweek.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-09-15  |  1.0 KB  |  44 lines
  1. 1  'DAY Of the WEEK
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "DAY OF THE WEEK"
  4. 20   PRINT 
  5. 30   PRINT "(ENTER 0,0,0 TO END PROGRAM)"
  6. 40   PRINT "MONTH, DAY, YEAR";
  7. 50   INPUT M,D,Y
  8. 60  IF M=0 THEN 360
  9. 70  IF Y<100 THEN Y=Y+1900
  10. 80   IF Y <  > 0 THEN 100
  11. 90   GOTO 360
  12. 100   IF M > 2 THEN 130
  13. 110  M = M + 12
  14. 120  Y = Y - 1
  15. 130  N = D + 2 * M +  INT (0.6 * (M + 1)) + Y +  INT (Y / 4) -  INT (Y / 100) +  INT (Y / 400) + 2
  16. 140  N =  INT ((N / 7 -  INT (N / 7)) * 7 + 0.5)
  17. 150   IF N > 0 THEN 180
  18. 160   PRINT "SATURDAY"
  19. 170   GOTO 340
  20. 180   IF N > 1 THEN 210
  21. 190   PRINT "SUNDAY"
  22. 200   GOTO 340
  23. 210   IF N > 2 THEN 240
  24. 220   PRINT "MONDAY"
  25. 230   GOTO 340
  26. 240   IF N > 3 THEN 270
  27. 250   PRINT "TUESDAY"
  28. 260   GOTO 340
  29. 270   IF N > 4 THEN 300
  30. 280   PRINT "WEDNESDAY"
  31. 290   GOTO 340
  32. 300   IF N > 5 THEN 330
  33. 310   PRINT "THURSDAY"
  34. 320   GOTO 340
  35. 330   PRINT "FRIDAY"
  36. 340   PRINT 
  37. 350   GOTO 40
  38. 360  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  39. 370  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  40. 380  K$=INKEY$:IF K$="" THEN 380
  41. 390  IF K$=" " THEN RUN
  42. 400  IF K$<>CHR$(27) THEN 380
  43. 10000  RUN"MENU
  44.